home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / create6r / namenip.frm < prev    next >
Text File  |  1999-05-23  |  4KB  |  129 lines
  1. VERSION 5.00
  2. Begin VB.Form NameNIP 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FFFFFF&
  5.    Caption         =   "Essential Information"
  6.    ClientHeight    =   2355
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   4035
  10.    Icon            =   "NameNIP.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   157
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   269
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "Ok"
  18.       Height          =   375
  19.       Left            =   2760
  20.       TabIndex        =   2
  21.       Top             =   1800
  22.       Width           =   1095
  23.    End
  24.    Begin VB.TextBox Text2 
  25.       BackColor       =   &H80000002&
  26.       ForeColor       =   &H80000009&
  27.       Height          =   375
  28.       Left            =   150
  29.       TabIndex        =   1
  30.       Top             =   1200
  31.       Width           =   3735
  32.    End
  33.    Begin VB.TextBox Text1 
  34.       BackColor       =   &H80000002&
  35.       ForeColor       =   &H80000009&
  36.       Height          =   375
  37.       Left            =   150
  38.       TabIndex        =   0
  39.       Top             =   480
  40.       Width           =   3735
  41.    End
  42.    Begin VB.Label Label1 
  43.       BackStyle       =   0  'Transparent
  44.       Caption         =   "Nick Name"
  45.       Height          =   255
  46.       Index           =   1
  47.       Left            =   150
  48.       TabIndex        =   4
  49.       Top             =   930
  50.       Width           =   2295
  51.    End
  52.    Begin VB.Label Label1 
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "Computer Name or IP"
  55.       Height          =   255
  56.       Index           =   0
  57.       Left            =   150
  58.       TabIndex        =   3
  59.       Top             =   150
  60.       Width           =   2295
  61.    End
  62. End
  63. Attribute VB_Name = "NameNIP"
  64. Attribute VB_GlobalNameSpace = False
  65. Attribute VB_Creatable = False
  66. Attribute VB_PredeclaredId = True
  67. Attribute VB_Exposed = False
  68.  
  69. Private Sub Command1_Click()
  70. waitforplayer = False
  71. HostName = Text1.Text
  72. TryConnect = False
  73. NickName = Text2.Text
  74. frmChess.Label3.Caption = NickName & " Vs "
  75. If PlayOffline Then
  76. Unload Me
  77. VisitorName = Text1.Text
  78. NickName = Text2.Text
  79. frmChess.InitGame
  80. Else
  81.  If JoueurHote Then
  82.   If frmChess.SockClient.State <> 7 Then frmChess.SockClient.Close
  83.   frmChess.SockClient.Protocol = sckTCPProtocol
  84.   frmChess.SockClient.LocalPort = 1004
  85.   frmChess.SockClient.Listen
  86.   'frmInfoG.Label1.Caption = "Wait For Other Player"
  87.   waitforplayer = True
  88.   Unload Me
  89.   frmtryConnect.GetinitWaitting
  90.   frmtryConnect.Show 1
  91.   Exit Sub
  92. Else
  93.   'frmInfoG.Label1.Caption = "Try to Connect"
  94.   Unload Me
  95.   Connect
  96.   frmtryConnect.GetinitWaitting
  97.   frmtryConnect.Show 1
  98.   '
  99. End If
  100. End If
  101. End Sub
  102. Public Sub Connect()
  103. 'On Error Resume Next
  104.   TryConnect = True
  105.   frmChess.SockClient.Close
  106.   frmChess.SockClient.Protocol = sckTCPProtocol
  107.   frmChess.SockClient.RemotePort = 1004
  108.   frmChess.SockClient.RemoteHost = HostName
  109.   frmChess.SockClient.Connect
  110. End Sub
  111. Private Sub Form_Load()
  112.  
  113. OutSquare 0, 0, ScaleWidth - 1, ScaleHeight, Me
  114. InSquare Text1.Left, Text1.Top, Text1.Width - 1, Text1.Height, Me
  115. InSquare Text2.Left, Text2.Top, Text2.Width - 1, Text2.Height, Me
  116. InSquare Command1.Left, Command1.Top, Command1.Width - 1, Command1.Height, Me
  117. If PlayOffline Then
  118.  Label1(0).Caption = "Nickname Visitor"
  119.  HostName = "Visitor"
  120. Else
  121.  Label1(0).Caption = "Computer Name or IP"
  122. End If
  123. Text1.Text = HostName
  124. Text2.Text = NickName
  125. Left = frmChess.Left + ((frmChess.Width - Width) / 2)
  126. Top = frmChess.Top + ((frmChess.Height - Height) / 2)
  127. End Sub
  128.  
  129.